home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 81 / 081.d81 / near side (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  186 lines
  1. 100 poke53280,0:poke53281,0
  2. 130 :
  3. 140 poke55,0:poke56,64:clr:a$=""
  4. 145 gosub60000
  5. 155 def fnd(i)=20-(len(an$(x,i))/2)
  6. 160 sys57812"unpacker.89",8,0:poke780,0:poke781,0:poke782,201:sys65493
  7. 170 sys57812"package.o",8,0:poke780,0:poke781,80:poke782,195:sys65493
  8. 200 ip=50000:unpack=51456:hgr=51459
  9. 210 ps=50006:ba=50009
  10. 220 open2,8,2,"ns.text,p,r"
  11. 222 j=1:k=0:fori=0to1:sysip,2,40:i=st
  12. 224 ifa$="*"thenj=j+1:k=0:goto228
  13. 226 k=k+1:an$(j,k)=a$
  14. 228 next:close2
  15. 230 readnp:dim r$(10),c(10)
  16. 240 forx=1tonp:readr$(x),c(x)
  17. 250 next
  18. 270 forx=1tonp
  19. 280 gosub1810
  20. 285 fh=0:ifleft$(r$(x),2)="u."thenfh=1
  21. 290 sys57812r$(x),8,0:poke780,0:poke781,0:poke782,64:sys65493
  22. 300 e(x)=c(x)
  23. 310 gosub1910:ifa$="q"ora$="[209]"thengosub1250
  24. 312 gosub2000
  25. 340 kk=0:poke198,0
  26. 355 ifz3=0then360
  27. 357 z4=z4+1:z4=z4and15
  28. 358 poke53281,z4
  29. 360 kk=kk+1:geta$:ifa$=""andkk<1000then355
  30. 370 ifa$="q"ora$="[209]"thengosub 1250
  31. 380 ifa$="s"ora$="[211]"then 470
  32. 390 ifa$<>chr$(133)then410
  33. 400 z1=z1+1:z1=z1and15
  34. 405 poke53280,z1:goto340
  35. 410 ifa$<>chr$(134)then416
  36. 412 z2=z2+1:z2=z2and15
  37. 415 poke53281,z2:goto340
  38. 416 ifa$<>chr$(135)then420
  39. 417 z3=1-z3:ifz3=0thenpoke53281,e(x)
  40. 419 goto340
  41. 420 syshgr:print"[147]":poke198,0:next x
  42. 430 goto270
  43. 440 :
  44. 450 rem save koala pic
  45. 460 :
  46. 470 sys hgr
  47. 480 poke53280,0:poke53281,0
  48. 490 print"[147][154]":poke214,11:print
  49. 500 print"   [211]ave this unpacked picture? (y[154]/n[154])":poke198,0
  50. 510 geta$:ifa$<>"y"anda$<>"n"then510
  51. 520 ifa$="y"then560
  52. 530 goto1110
  53. 550 :
  54. 560 print"[147][154]":poke214,9:print
  55. 570 print" [201]nsert save disk and enter a filename."
  56. 580 :
  57. 590 print"       [206]ame : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][193][146]";
  58. 600 ln%=14:sp$="                "
  59. 610 gosub680:ifnm$=""then1110
  60. 620 nm$=left$(chr$(129)+nm$+sp$,15)
  61. 650 goto820
  62. 680 rem --- input routine ---
  63. 690 nm$="":x%=0:c%=peek(646)
  64. 700 print"[152][164][157]";:poke646,c%
  65. 710 geta$:ifa$=""then710
  66. 720 a%=asc(a$)
  67. 730 ifa%=20andx%>0thenx%=x%-1:nm$=left$(nm$,len(nm$)-1):print" [157][157]";:goto700
  68. 740 ifa%=20then710
  69. 750 ifa%=13thenprint" ":return
  70. 760 ifx%=ln%then710
  71. 770 ifa$<" "ora$>"z"anda$<"[193]"ora$>"[218]"ora%=34then710
  72. 780 nm$=nm$+a$:print""a$;:x%=x%+1:goto700
  73. 790 :
  74. 800 rem -- check for 'file exists' --
  75. 810 :
  76. 820 open15,8,15,"r0:"+nm$+"="+nm$:input#15,er,er$:close15
  77. 830 ifer<>62thengosub1160:goto1110
  78. 840 :
  79. 850 rem ---      save pic       ---
  80. 860 :
  81. 920 gosub2000:nm$=nm$+",p,w"
  82. 930 sysps,nm$:syshgr
  83. 950 :
  84. 960 rem --- check for errors ---
  85. 970 :
  86. 980 open15,8,15:input#15,er,er$,y$,z$:close15
  87. 990 iferthengosub1160:goto490
  88. 1000 :
  89. 1010 rem --    everything ok    ---
  90. 1020 :
  91. 1030 poke53280,0:poke53281,0
  92. 1040 print"[147][154]":poke214,7:print
  93. 1050 print"             [211]aving complete."
  94. 1060 print"   [208]ut the [204][207][193][196][211][212][193][210] disk back in"
  95. 1070 print"     the drive and press [211][208][193][195][197][154]."
  96. 1080 geta$:ifa$<>" "then1080
  97. 1090 open15,8,15,"r0:package.o=package.o":input#15,er:close15
  98. 1100 ifer<>63 then 1040
  99. 1110 syshgr:goto420
  100. 1120 :
  101. 1130 :
  102. 1140 :
  103. 1150 rem ---   print dos error msg ---
  104. 1160 :
  105. 1170 poke53280,.:poke53281,.:print"[147]        [129] [196] [201] [211] [203]   [197] [210] [210] [207] [210] !
  106. 1180 [151]214,10:[153]
  107. 1190 a$[178]"print#valrror #"[170][196](er)[170]"print#,"[170]er$
  108. 1200 x%[178]22[171][195](a$)[173]2:[153][163]x%);a$
  109. 1210 [151]214,21:[153]
  110. 1220 [153]"print#        (NULL)ress (NULL)(NULL)atnlenvalprint# to continue."
  111. 1230 [161]a$:[139]a$[179][177]" "[167]1230
  112. 1240 [142]
  113. 1250 o[178][194](53270)[175]16
  114. 1255 [139]o[167][158]51459
  115. 1260 [151]53281,0:[151]53280,0
  116. 1270 [153]"loadcont  atnre you sure you want to quit? (ycont/ncont)"
  117. 1280 [151]198,0:[146]198,1:[161]ag$
  118. 1290 [139]ag$[178]"y"[176]ag$[178]"(NULL)"[167]1330
  119. 1295 [139]o[167][158]51459
  120. 1300 [142]
  121. 1320 [143] quit
  122. 1330 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  123. 1340 [139]er[179][177]63[167][153]"load":[128]
  124. 1350 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  125. 1360 [153]"run"
  126. 1370 [151]631,13:[151]632,13:[151]198,2:[128]
  127. 1380 [143] data <title>,<border color>
  128. 1390 [131] 7
  129. 1400 [131] ant.shoe.shp,0
  130. 1420 [131] shampoo.shp,0
  131. 1430 [131] batsuit.shp,0
  132. 1440 [131] dog.party.shp,0
  133. 1450 [131] bear.shp,0
  134. 1460 [131] fish.shp,0
  135. 1470 [131] carsmell.shp,0
  136. 1500 :
  137. 1770 [153]"";
  138. 1800 :
  139. 1810 [151]53281,9:[151]53280,9
  140. 1820 [153]"loadstoportantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  141. 1830 [129]qx[178]1[164]13
  142. 1840 [153]"(NULL)"[163]38)"(NULL)":[130]
  143. 1850 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  144. 1860 [129]lx[178]217[164]217[170]26:[151]lx,([194](lx)[176]128):[130]
  145. 1870 [153]"stop"
  146. 1872 [153][163][165]d(1))an$(x,1):[153]"list"
  147. 1880 [129]i[178]2[164]7
  148. 1882 [153][163][165]d(i))an$(x,i)
  149. 1886 [130]
  150. 1900 [142]
  151. 1910 kk[178]0
  152. 1915 [151]214,15:[153]:[153]"stop     (NULL)hile the slide is showing..."
  153. 1916 [153]"      asc1 sys- changes border color"
  154. 1917 [153]"      asc3 sys- changes background color"
  155. 1918 [153]"      asc5 sys- toggles light show"
  156. 1919 [153]"       (NULL) sys- takes you to (NULL)atn(NULL)val routine"
  157. 1920 [153]"       (NULL) sys- quits to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  158. 1925 [151]214,23:[153]
  159. 1930 [153]"stop(NULL)ress (NULL) to quit - atnny other to continueon"
  160. 1940 kk[178]kk[170]1:[161]a$:[139]a$[179][177]""[176]kk[177]1000[167][142]
  161. 1950 [137]1940
  162. 1980 :
  163. 1990 :
  164. 2000 [153]"load";:[139]fh[167][151]254,0:[158]ba:[137]2040
  165. 2020 [151]251,64:[151]252,224:[151]253,204
  166. 2030 [158]un
  167. 2040 [151]53280,c(x):[151]252,224:[151]253,204:[158]hgr:[142]
  168. 2050 [142]
  169. 10000 [159]15,8,15,"s0:near side":[160]15:[148]"near side",8:[128]
  170. 60000 [153]"loadfor       len left$ (NULL) right$ (NULL)    left$ val (NULL) (NULL) (NULL) ' (NULL)"
  171. 60010 [153]"            (NULL) val atn (NULL)    (NULL) right$ str$ val"
  172. 60020 [153]"cont      (NULL)here (NULL)e atnsk (NULL)uestions ascirst"
  173. 60030 [153]"             atnnd (NULL)hoot (NULL)ater"
  174. 61000 b9$[178]"                                      "
  175. 61010 [151]214,14:[153]:[153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
  176. 61020 [129]i[178]0[164]7:[153]b9$:[130]:[153]"  pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  177. 61030 b9$(0)[178]"left$val(NULL)(NULL)(NULL)'(NULL) (NULL)valatn(NULL) (NULL)right$str$val
  178. 61040 b9$(1)="by [195]hris [200]enry"
  179. 61050 b9$(2)="([195]) 1991 by [211]oftdisk, [201]nc."
  180. 61060 b9$(3)="[208]ublished on [204][207][193][196][211][212][193][210] #81"
  181. 61070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  182. 61080 b9$(5)="[193]ll [210]ights [210]eserved"
  183. 61090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  184. 61099 return
  185. 61200 return
  186.